|
|
<%if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then%>
<%Else%>
<%
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "IDLinea = " & idlineadicatalogo & " "
sqlquery = sqlquery & " And "
sqlquery = sqlquery & "InVendita=true "
Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
<%
Dim ID
Dim Codice
Dim Denominazione
Dim Informazioni
Dim InformazioniEstese
Dim Confezione
Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
%>
<%If RecordsetArticoli.EOF Then%>
<%Else%>
<%if err=0 then
While Not RecordsetArticoli.EOF%>
<%
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<%If RiferimentoDiIcona <> "" Then%>
<%else%>
<%End If%>
|
<%=Denominazione%>
<%=Informazioni%>
Prezzo € <%=FormatNumber(Prezzo, 2, -1, 0, -1)%>
|
|
| |
<%RecordsetArticoli.MoveNext%>
<%Wend
end if%>
<%End If%>
<%End If%>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<%end if
%>
|
|
|
|
|